home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00113_ScoreTools.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.8 KB  |  115 lines
  1. --
  2. -- score tools
  3. --
  4.  
  5. -- these handlers can search through the score and do some stuff
  6.  
  7. property ancestor
  8.  
  9. on new me
  10.   -- initialize constants:
  11.   set ancestor = new (script "AppTools")
  12.   
  13.   return me
  14. end
  15.  
  16. -- this scans through the score, and finds the canvas sprite
  17. on findColoredSprites me, whatColor, pMe
  18.   global gTotalSprites
  19.   set sprList = []
  20.   repeat with x = 1 to gTotalSprites
  21.     if the scoreColor of sprite x = whatColor then
  22.       if pMe then
  23.         puppetSprite x, true
  24.       end if
  25.       
  26.       add(sprList, x)
  27.     end if
  28.   end repeat
  29.   
  30.   return sprList
  31. end
  32.  
  33. -- a little stolen routine that will swap a sprite's member with a given member called downbutton
  34. -- and then return it to the previous member
  35. -- all the code depends on a "," delimited naming convention
  36. on bounceButton me, downButton, spr
  37.   set saveCast   = the castNum of sprite spr
  38.   
  39.   if downButton = FALSE then 
  40.     set downButton = (the name of cast saveCast) & ",down"
  41.   end if
  42.   
  43.   set the castNum of sprite (the clickon) to (the number of cast downButton)
  44.   updateStage
  45.   wait (20)
  46.   
  47.   repeat while the stillDown
  48.     updateStage
  49.   end repeat
  50.   
  51.   set the castNum of sprite spr to saveCast
  52.   updateStage
  53. end
  54.  
  55. -- a little stolen routine that will swap a sprite's member with a given member called downbutton
  56. -- and leave the button in the down position
  57. -- all the code depends on a "," delimited naming convention
  58. on pushButton me, downButton, spr
  59.   set saveCast = the castNum of sprite spr
  60.   puppetSprite spr, true
  61.   
  62.   if downButton = FALSE then 
  63.     set downButton = (the name of cast saveCast) & ",down"
  64.   end if
  65.   
  66.   set the castNum of sprite spr to (the number of cast downButton)
  67.   updateStage
  68.   
  69.   repeat while the stillDown
  70.     updateStage
  71.   end repeat
  72. end
  73.  
  74.  
  75. -- this just unpuppets a bunch of sprites, and then pushes down a given sprite
  76. -- it takes a string that is the additional part of the down name as a param
  77. -- all the code depends on a "," delimited naming convention
  78.  
  79. on radioToggle me, theList, spr, downAppendStr
  80.   repeat with x in theList
  81.     if x = spr then 
  82.       set myName = item 1 of the name of member (the memberNum of sprite spr)
  83.       set myName = myName & downAppendStr
  84.       pushButton(me, myName, spr)
  85.       next repeat
  86.     end if
  87.     
  88.     puppetSprite x, FALSE
  89.   end repeat  
  90. end
  91.  
  92.  
  93. -- this just unpuppets a bunch of sprites, and then pushes down a given sprite
  94. -- it takes a string that is the additional part of the down name as a param
  95. -- all the code depends on a "," delimited naming convention
  96. on colorRadioToggle me, theList, spr, downColor
  97.   repeat with x in theList
  98.     puppetSprite x, TRUE
  99.     
  100.     if x = spr then 
  101.       set the foreColor of sprite spr = downColor
  102.       next repeat
  103.     end if
  104.     
  105.     set the foreColor of sprite x = 255
  106.     updateStage
  107.   end repeat  
  108. end
  109.  
  110. on destruct me
  111.   if objectP (ancestor) then destruct (ancestor)
  112.   set ancestor = 0
  113. end
  114.  
  115.